From: Karl Heuer Date: Fri, 16 Sep 1994 21:40:54 +0000 (+0000) Subject: (compilation-sentinel): Include exit status in modeline. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~90268 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5cb9f2dba5d9f1ac89561bd2ea664b3462fa487f;p=emacs.git (compilation-sentinel): Include exit status in modeline. --- diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index bff419b81b7..7e326e9b62a 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -539,7 +539,8 @@ See `compilation-mode'." (forward-char 1) (setq mode-line-process (concat ":" - (symbol-name (process-status proc)))) + (symbol-name (process-status proc)) + " [" (process-exit-status proc) "]")) ;; Since the buffer and mode line will show that the ;; process is dead, we can delete it now. Otherwise it ;; will stay around until M-x list-processes.